dim cone
set cone = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cone","MeshSurface")
cone.Kinematics.Global.Parameters("posx").value = 1.0
cone.Kinematics.Global.Parameters("posy").value = 1.0
cone.Kinematics.Global.Parameters("posz").value = 5.0
cone.Kinematics.Global.Parameters("rotx").value = 10.0
cone.Kinematics.Global.Parameters("roty").value = 25.0
cone.Kinematics.Global.Parameters("rotz").value = 45.0
cone.Kinematics.Global.Parameters("sclx").value = 2.0
cone.Kinematics.Global.Parameters("scly").value = 2.0
cone.Kinematics.Global.Parameters("sclz").value = 2.0
logmessage "Cone position: " & cone.Kinematics.Global.Parameters("posx").value &","& cone.Kinematics.Global.Parameters("posy").value &","& cone.Kinematics.Global.Parameters("posz").value
logmessage "Cone orientation: " & cone.Kinematics.Global.Parameters("rotx").value &","& cone.Kinematics.Global.Parameters("roty").value &","& cone.Kinematics.Global.Parameters("rotz").value
logmessage "Cone scaling: " & cone.Kinematics.Global.Parameters("sclx").value &","& cone.Kinematics.Global.Parameters("scly").value &","& cone.Kinematics.Global.Parameters("sclz").value